﻿unit uCommon;

interface

uses
  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, uTweak, XMLDoc;

type
  TUtils = class
  public
    procedure ShowAboutForm(Form: TForm);
    procedure LoadTweakFromFile(stFileName: string; var objTweak: TTweak);
    procedure SaveTweakToFile(objTweak: TTweak; stFileName: string);
  end;

implementation

uses
  ShellAPI;

procedure TUtils.LoadTweakFromFile(stFileName: string; var objTweak: TTweak);
var
  objXML: TXMLDocument;
begin

end;

procedure TUtils.SaveTweakToFile(objTweak: TTweak; stFileName: string);
var
  objXML: TXMLDocument;
begin

end;

procedure TUtils.ShowAboutForm(Form: TForm);
begin
  ShellAbout(Form.Handle, PChar(Application.Title), PChar(Form.Caption), Application.Icon.Handle);
end;

end.
